void EroBin (ImSize, InIm, OutIm, StrEl, Black, White)
int     ImSize;
BYTE    **InIm;
BYTE    **OutIm;
StrTypB *StrEl;
BYTE    Black, White;
{
   int  r,c,y,x,i;

   for (r=0; r<ImSize; r++)
      for (c=0; c<ImSize; c++)  OutIm [r][c] = Black;

   for (r=0; r<ImSize; r++) {
      for (c=0; c<ImSize; c++) {
         for (i=1; i<=StrEl[0].r; i++) {
            y = r + StrEl[i].r;
            x = c + StrEl[i].c;
            if (y>=0 && x>=0 && y<ImSize && x<ImSize)
               if (InIm [y][x] == Black)  goto Failed;
         }
         OutIm [r][c] = White;
Failed:  ;
}  }  }
